Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Manter Formatação Original da Cedula

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
brunogv



Mensagens : 2
Data de inscrição : 21/09/2014

MensagemAssunto: Manter Formatação Original da Cedula   Dom Set 21, 2014 4:16 pm

Olá a todos,

Preciso de ajuda para 2 problemas em uma pasta de trabalho.

Nessa única pasta de trabalho tenho 12 planilhas, todas esses com partes de cédulas bloqueadas e outras desbloqueados que serão editadas por usuários com pouca experiencia no Excel.

01. A primeira configuração que quero adicionar em todas as planilhas é que qualquer comando "colar" nas cédulas desbloqueadas seja feito de forma a manter a formatação (toda a formatação, inclusive bordas e formato de número) da cédula original das minhas planilhas, ignorando qq formatação de onde foi copiado. Sei que há o comando colar especial que permite colar apenas os valores, porém não será uma opção para os usuários dessa pasta de trabalho.


02. Como essa pasta tem 12 planilhas, todas essas ficam bloqueadas. Somente parte das cédulas ficam disponiveis para seleção e edição. Já achei um comando de VBA que permite desbloquear todas e um outro para bloquear todas.
Porém o comando bloquear sem acaba por bloquear todas as cédulas não fazendo a opção de "Selecionar as cédulas desbloqueadas".
Seria de grande ajuda um comando que permitiria do bloqueio de todas as planilhas mas que as cédulas sem o argumento de proteção fiquem livres para edição.

E claro, essas atendam a primeira situação.

Att

Bruno
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Manter Formatação Original da Cedula   Seg Set 22, 2014 3:07 pm

Bom dia!!

Para opção 1, Veja se ajuda...
use um evento dentro do módulo de Livro EstaPasta_de_trabalho, usando uma das duas linhas conforme abaixo.
Código:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    'PasteSpecial Paste:=xlPasteAll
    'PasteSpecial xlPasteFormats
End Sub

Para a opção 2, tente
Código:
Sub teste()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        .Unprotect
        .Range("A1:D15").Locked = True
        .Protect
    End With
Next ws
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
brunogv



Mensagens : 2
Data de inscrição : 21/09/2014

MensagemAssunto: Re: Manter Formatação Original da Cedula   Sex Set 26, 2014 6:13 pm

alexandrevba escreveu:
Bom dia!!

Para opção 1, Veja se ajuda...
use um evento dentro do módulo de Livro EstaPasta_de_trabalho, usando uma das duas linhas conforme abaixo.
Código:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    'PasteSpecial Paste:=xlPasteAll
    'PasteSpecial xlPasteFormats
End Sub

Para a opção 2, tente
Código:
Sub teste()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        .Unprotect
        .Range("A1:D15").Locked = True
        .Protect
    End With
Next ws
End Sub

Obrigado pelo retorno.

A primeira solução não funcionou. QQ umas das linhas apresentam erro em qq tipo de colagem na planilha.

A segunda solução funcionou em partes. Para casa planilha a macro me solicita a senha. Teria como informar a senha uma unica vez?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Manter Formatação Original da Cedula   Seg Set 29, 2014 4:58 pm

Bom dia!!

Se isso não te ajudar, eu desisto, deixarei os colegas, tentar ajuda-lo...
Código:
Option Explicit

Dim shtX As Worksheet
Dim shtY As Worksheet

Sub AleVBA_902V3()

Application.ScreenUpdating = False
Set shtY = ThisWorkbook.ActiveSheet 'Worksheets("Sample")
Cells.Copy

For Each shtX In ThisWorkbook.Worksheets
    If shtX.Name <> shtY.Name Then
        shtX.Cells.PasteSpecial
    End If
Next shtX

shtY.Select
Application.CutCopyMode = xlCut
Application.ScreenUpdating = True

End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Manter Formatação Original da Cedula   Hoje à(s) 8:22 pm

Voltar ao Topo Ir em baixo
 
Manter Formatação Original da Cedula
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» messenger original de fabrica
» [PROBLEMA]Formatação de sprites
» Angry Birds versao original
» Como manter a cor dos links visitados
» Problema com minha barra de formatação

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: