My Code For Protecting Isn't working

[mingauhauck]

I'm trying to make it work:

But for some reason it's not working. There is a 1004 error at:

Sheets("Formulario de Nova Contratacao").Protect Password:="3,1415", DrawingObjects:=True, Contents:=True, Scenario:=True

And the button are not working either. Even if i cancel the protection and unprotection functions.

Don't know what it's happening.

Function Bloquear()

' Bloqueia toda a planilha

' Para não bloqueá-la: digitar manut no campo B8



Application.ScreenUpdating = False



If Sheets("Formulario de Nova Contratacao").Range("B8") = "manut" Then Exit Function



Sheets("Formulario de Nova Contratacao").Protect Password:="3,1415", DrawingObjects:=True, Contents:=True, Scenario:=True

ThisWorkbook.Protect



End Function

Function Desbloquear()

' Desbloqueia toda a planilha



Worksheets("Formulario de Nova Contratacao").Unprotect Password:="3,1415"

ThisWorkbook.Unprotect



End Function



Private Sub OptionButton1_Click()

' Bandeira do Brasil: Mostra os Campos 9 e 10 (linhas 24 a 26)

' Campo 14 (Linhas 35 a 37)

' Campo 19.1 (Linhas 71 a 84)

' Esconde os Campos 4 e 5 (Linhas 10 a 12)



Call Desbloquear



If OptionButton1.Value = True Then



Rows("10:12").Hidden = True

Rows("24:26").Hidden = False

Rows("35:37").Hidden = False

Rows("71:84").Hidden = False



Call Bloquear



End If



End Sub



Private Sub OptionButton2_Click()

' Bandeira do Brasil: Mostra os Campos 9 e 10 (linhas 24 a 26)

' Campo 14 (Linhas 35 a 37)

' Campo 19.1 (Linhas 71 a 84)

' Esconde os Campos 4 e 5 (Linhas 10 a 12)



Call Desbloquear



If OptionButton1.Value = True Then



Rows("10:12").Hidden = False

Rows("24:26").Hidden = True

Rows("35:37").Hidden = True

Rows("71:84").Hidden = True



Call Bloquear



End If



End Sub

[vba_php]

1004 is application defined or object defined error. with the method you are using, it could be any number of things. VBA isn't the greatest languages in the world, and is completely inconsistent in many ways. MS's fault, totally. see these first:

https://www.google.com/search?q=excel+vba+.Protect+

https://docs.microsoft.com/en-us/off...ksheet.protect

https://www.google.com/search?q=vba+excel+1004+error

https://stackoverflow.com/questions/...or-when-select

then, maybe try all of the following as possible fixes

Sheets("Formulario de Nova Contratacao").Protect Password:="3,1415", DrawingObjects:=-1, Contents:=-1, Scenario:=-1 

Sheets("Formulario de Nova Contratacao").Protect Password:="3,1415", True, True, True 

Sheets("Formulario de Nova Contratacao").Protect "3,1415", True, True, True 

furthermore, are you sure the code is the issue? If there is no sheet called Formulario de Nova Contratacao, that would also cause the error, obviously. no defined object in that case.

[Andy Pope]

The named argument is Scenarios, plural.

worksheets("Formulario de Nova Contratacao").Protect Password:="3,1415", DrawingObjects:=True, Contents:=True, Scenarios:=True

[vba_php]

wow. nice catch andy!