How to 'Protect' a Worksheet and Workbook

hi
can u supply code for protecting everysheet in a workbook (didnt get much joy in help file)

thanks
Andy

Hello

Why is it not possible to unprotect/protect worksheets via VB code in a shared workbook?

Is there any way round this?

Thanks

Chard

I am working with two vendors who are sending me pricing quotes in an excel spreadsheet. I want to put both quotes in one workbook and password protect each sheet so that only the vendor can see his sheets of price quotes but not the other vendors. This will be a one time occurrence. What is the best way to accomplish this??

Thank you!!!

I would like to know if there is a way to protect or lock a worksheet, inside
a workbook, so that other users cannot even open the worksheet. I am
familiar with how to password protect a worksheet so users cannot edit or
modify locked cells, however, I would like to keep other users from even
going into the other worksheets within the workbook. I have not yet found a
method for doing so.

Or is there a way to "hide" a worksheet within the workbook so that other
users cannot see it?

HEEEELP!

I want to load a locker assignment workbook onto our school server. That way several of us can issue lockers to our students at the same time, at beginning of the school year. I was looking at the tool Protect Shared Workbook. Can you tell me what Protect Shared Workbook does? Will that allow more than one person to use the workbook at the same time, so for example; one person can issue lockers starting with #2001, while another person beginning with #3001, etc.? When I use just Protect Workbook (not shared) it tells me that it is a read only file. But with Protect Shared Workbook, it allows me to enter data. Thanks.

I have a workbook that has 6 tabs. Can I auto protect each tab upon closing the workbook if the user forgets to do so?

So i have a module running...when the workbook opens...

Code:

Sub Check_workbook()
Dim fpath As String
Dim strFileName As String
Dim strDateName As String
Dim FSOobj As Object
ActiveWorkbook.Unprotect Password:="myPassword"
Set FSOobj = CreateObject("Scripting.FilesystemObject")
If FSOobj.FolderExists("C:\SMCCCD") = False Then
MsgBox "Please Wait While I create the Default folder in Drive C:\SMCCCD..."
FSOobj.CreateFolder "C:\SMCCCD"
Else
MsgBox "Lets Get Started..The Default Folder Exists..."
End If
Set FSOobj = Nothing
fpath = "C:\SMCCCD"
strFileName = InputBox(Prompt:="Please enter the Building Name." & vbCrLf & _
                                                     "In the Following Format:" & vbCrLf & _
                                                     "CAMPUS B-XX" & vbCrLf & _
                                                     "CAMPUS = (CSM, SKY, CAN)" & vbCrLf & _
                                                     "XX = Building Number in 2 Digit format", Title:="Save As...", Default:="Example CSM B-01")
ThisWorkbook.SaveAs Filename:=fpath & "\" & strFileName
strDateName = Format(Now, "mm/dd/yyyy hh:mm:ss AM/PM")
                                                     Sheets("Reader_DB").Range("H2:I17") = strDateName
                                                     Sheets("DCU-Input_DB").Range("H2:I33") = strDateName
                                                     Sheets("DCU-Output_DB").Range("H2:I17") = strDateName
                                                     Sheets("DCR-Input_DB").Range("H2:I33") = strDateName
                                                     Sheets("DCR-Output_DB").Range("H2:I17") = strDateName
                                                     Sheets("ACU&ACR-Input_DB").Range("H2:I25") = strDateName
                                                     Sheets("ACU&ACR-Output_DB").Range("H2:I5") = strDateName
                                                     Sheets("Camera_DB").Range("H2:I66") = strDateName
                                                     
MsgBox ("Workbook Successfully saved as " & Sheets("Summary").Range("AL2").Value & ".xls in the SMCCCD Folder on your HardDrive." & vbCrLf & _
                                                    "You are now working on " & Sheets("Summary").Range("AL2").Value & ".xls"), vbExclamation, "Successful Save"
MsgBox ("If you make any changes to " & Sheets("Summary").Range("AL2").Value & ".xls in the SMCCCD Folder.. " & vbCrLf & _
                                                    "Please remember to use the Email Macro Found on the Summary Sheet." & vbCrLf & _
                                                    " " & vbNewLine & _
                                                    "Doing this Updates the REVISION Number." & vbNewLine & _
                                                    " " & vbNewLine & _
                                                    "For Support on this WorkBook, Please Contact: javin" & vbNewLine & _
                                                    "at xx0-7xx-xxx9 or via Email: jlamantia@dedede.net"), vbExclamation, "PLEASE NOTE!!!"
ActiveWorkbook.Protect Password:="mypassword"
Sheets("Summary").Select
Range("A1").Select
End Sub

I need to Unprotect the Entire workbook so the above macro places the information it needs in its correct spot, and once completed...protect the work book...

But it keeps breaking saying that the sheets must be unprotected to do the action yada yada...Thoughts??

all my other user forms have...
Code:

ActiveSheet.Unprotect Password:="mypassword"
ActiveSheet.Protect Password:="mypassword"

and they work flawlessly...so i thought replacing ActiveSheet with Activeworkbook would work...but it wont..

Hello,

What is the best excel vba formula to use in Excel 2003 to protect formulas in a worksheet from being overwritten, but allowing changes to other parts of the spreadsheet it may reference?

When I go to protect workbook it reduces by screen to about 1/4 the size. Is this Right?

Hi

I am making a file in Excel which will be used by some more unexperienced users. It will be some kind of price list calculation.
It has quite some VBA items, which puts some results into the cells of the sheet.
Is it possible to protect the main part of the sheet and still allow to the VBA to put the datas into the cells which are on the protected parts?
How to do this?