Saberexcel - site das macros
Macros do aplicativo Microsoft Excel VBA, impede navegação em células que não estejam desbloqueadas.
Macro funcionando na abertura do Workbook (Livro, assegure-se de que as células só desbloqueadas são selecionadas em uma Planilha protegida, liberando a navegação apenas para as células debloqueadas.
Sub Auto_Open()
Sheets("Plan1").EnableSelection = xlUnlockedCells
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox ("celulas bloqueadas"), vbCritical, "Saberexcel - site das macros"
End Sub
Esta segunda macro usamos como auxiliar para podermos testar o exemplo, observe que inserimos (FALSE), para deslproteger as células
Sub Debloquear_celulas()
Sheets("Plan1").EnableSelection = xlUnlockedCells
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
MsgBox ("celulas desbloqueadas"), vbCritical, "Saberexcel - site das macros"
End Sub
Sub Bloqueadas_celulas()
Sheets("Plan1").EnableSelection = xlUnlockedCells
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox ("celulas bloqueadas"), vbCritical, "Saberexcel - site das macros"
End Sub
Aprenda Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos com qualidade Saberexcel
Baixe o exemplo das macros acima para seu teste.
Excel planilha vba worksheet selecionando somente celulas desbloqueadas (20.5 kB)
