Hi and thanks in advance,
I have this problem of unprotecting a sheet, allowing for certain
features and want to protect that with a password again. When I do
that, I am getting syntax error. Someone please help,

code:
Sub Macro4()
ActiveSheet.Unprotect Password:="hiacsc"

ActiveSheet.Protect Password:="hiacsc" DrawingObjects:=True, _
Contents:=True, Scenarios:=True , AllowFormattingCells:=True,
_
AllowFormatingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True,
AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub

If I omit Password for protecting the sheet it does what I want, but
when I protect that with Password atrribute, it is giving me syntax
error.

Hi Nasir,

Try changing:

ActiveSheet.Protect Password:="hiacsc" DrawingObjects:=True, _

to

ActiveSheet.Protect Password:="hiacsc", DrawingObjects:=True, _


Note the comma after "hiacsc"


---
Regards,
Norman



wrote in message
ups.com...
Hi and thanks in advance,
I have this problem of unprotecting a sheet, allowing for certain
features and want to protect that with a password again. When I do
that, I am getting syntax error. Someone please help,

code:
Sub Macro4()
ActiveSheet.Unprotect Password:="hiacsc"

ActiveSheet.Protect Password:="hiacsc" DrawingObjects:=True, _
Contents:=True, Scenarios:=True , AllowFormattingCells:=True,
_
AllowFormatingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True,
AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub

If I omit Password for protecting the sheet it does what I want, but
when I protect that with Password atrribute, it is giving me syntax
error.

You forgot a comma right between "hiacsc" and DrawingObjects

HTH
--
AP

a écrit dans le message de news:
...
Hi and thanks in advance,
I have this problem of unprotecting a sheet, allowing for certain
features and want to protect that with a password again. When I do
that, I am getting syntax error. Someone please help,

code:
Sub Macro4()
ActiveSheet.Unprotect Password:="hiacsc"

ActiveSheet.Protect Password:="hiacsc" DrawingObjects:=True, _
Contents:=True, Scenarios:=True , AllowFormattingCells:=True,
_
AllowFormatingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True,
AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub

If I omit Password for protecting the sheet it does what I want, but
when I protect that with Password atrribute, it is giving me syntax
error.