Veja se isso te ajuda
o código abaixo, bloqueia o acesso ao menu das planilhas
coloque o código abaixo em "Estapasta_de_trabalho"
Private Sub Workbook_Open()
Application.CommandBars("ply").Enabled = False
Application.CommandBars("cell").Reset
Dim ContextMenu As CommandBar
Set ContextMenu = Application.CommandBars("Cell")
With ContextMenu.Controls.Add(Type:=msoControlButton, before:=2)
.OnAction = "admin"
.FaceId = 59
.Caption = "Admin"
End With
End Sub
e o código abaixo em módulos
Sub admin()
x = InputBox("DIGITE A SENHA PARA LIBERAR A PLANILHA")
If x = 123 Then 'substitua 123 pela sua senha
Application.CommandBars("ply").Enabled = True
MsgBox "Planilha liberada com sucesso"
Else
MsgBox "PASSWORD INCORRETA"
Exit Sub
End If
End Sub
salve o arquivo e abra novamente, agora clique com o direito em qualquer célula de excel, clique em "Admin"
digite sua senha, e desbloqueie o menu de contexto das planilhas
se isso te ajudou, clique no joinha ao lado de "citar"
Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓
Postado : 06/03/2017 7:19 pm