Home/ Questions/Q 9118899
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-17T05:15:55+00:00

I have a workbook in which i have several sheets according to requirement. In

  • 0

I have a workbook in which i have several sheets according to requirement. In this workbook i have used macros and to lock some particular cells and columns i have used unprotect and protect options. Everything works fine on my machine but when i make it as SharedWorkBook it is giving me errors particularly the ThisWorkBook.Sheets(“PSE”).Unprotect and ThisWorkBook.Sheets(“PSE”).Protect statements. So in place of them i used ThisWorkBook.Sheets(“PSE”).UnprotectSharing and ThisWorkBook.Sheets(“PSE”).ProtectSharing . Even now also i am getting errors with those lines.

Sub SheetHider()
ThisWorkbook.Sheets("SheetA").UnprotectSharing
Cuser = ThisWorkbook.Sheets("SheetA").Range("A2").Value

and the error is
Runtime error ‘438’ Object doesn’t support this property or method.

My Requirement: 1)I have to use Macros, Locking property so that i have to use Unprotect and Protect statements and these things should work when i make it as SharedWorkBook.
I have been searching many sites for this for a week. Atleast give me some alternatives to do this.
Any help will be appreciated greatly. Thanks

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    UnprotectSharing and ProtectSharing both belong to the Workbook object. So you can’t do what you are trying to do.

    You can do ThisWorkbook.UnprotectSharing and ThisWorkbook.ProtectSharing but that is only design to protect the Shared Workbook setting so that people can’t remove it without a password.

    Secondly you can’t unprotect or protect sheets when a workbook is shared. You would have to unshare the workbook, unprotect the sheet and then share the workbook again. Which isn’t very practicable.

    • 0