Proteger/Desproteger planilha mesmo botao

[IndioRiko]

Olá! criei uma planilha para registrar algumas informaçãoes e com isso gostaria de uma macro que ao clicar num unico botao ou numa unica figura desprotegesse ou protegesse a planilha que esta sendo usada.

[schiavinatto]

Ola @IndioRiko , segue sugestão de Macro usando uma célula de chave de controle (A1) , se 1 esta Protegido se 0 Desprotegido.

Sub ProtegerDesproteger

Dim oData As Variant
	oData = ThisComponent.getSheets.getByName( "Planilha1" ).getCellRangeByName( "A1" ).getDataArray()
	xVar1 = oData(0)(0)
	
	Select Case xVar1
		Case 0 : 
			ThisComponent.CurrentController.ActiveSheet.getCellRangeByName( "A1" ).Value = 1			
			ThisComponent.getCurrentController.getActiveSheet().Protect( oSenha )
		
		Case 1 : 	ThisComponent.getCurrentController.getActiveSheet().Unprotect( oSenha )
			ThisComponent.getCurrentController.getActiveSheet().Unprotect( oSenha )		
			ThisComponent.CurrentController.ActiveSheet.getCellRangeByName( "A1" ).Value = 0					
	
		Case Else : 	MsgBox "Error", 0, "ActiveSheetProtection"
	End select

End Sub

Segue arquivo exemplo.
IndioRiko.ods (10.9 KB)

Complemento

Arquivo com pedido de Senha. ( ndrk )
Para o usuário não ter acesso a senha cadastrada na Macro, a Biblioteca Senha esta também com Senha ( ndrk )

IndioRiko_v2.ods (14.1 KB)

[IndioRiko]

Parabéns mais uma vez pelo conhecimento compartilhado. Minha intenção é solicitar a senha ao proteger/desproteger a planilha. Há essa possibilidade.

[schiavinatto]

Vide Complemento na resposta acima.