Private Sub Worksheet_Activate()
ActiveWindow.WindowState = xlMinimized
If InputBox("Pleas enter the password: ") "Password" Then Sheets("OkToSeeThisOne").Activate
ActiveWindow.WindowState = xlMaximized
End Sub
This is the code i enter into 3 sheets that i don't want ppl to see unless they know the password but if they press cancel the End on the debug error they can view the sheet lolz. How can i stop them actually viewing it at all?
I have a large workbook with 10+ sheets i need to protect all at once. I have created a macro in VBA below. It works, but I would like another user to be able to change formatting on the sheets while they are protected. below is my macro.
Sub ProtectAll()
Dim wSheet As Worksheet
Dim Pwd As String
[Code].....
I am trying to protect all sheets on a Workbook Close event.
I don't want the user to even be able to Select the Loked cells so I set it up that way through formating of cells.
This is what I have tried:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Protect Password:="P@ssword", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
' sh.Protect Password:="P@ssword"
Next sh
End Sub
I even tried the commented out line in that postion instead of where it is now.
It does protect but still allows selection of locked cells.
I currently have set up two macros that will unprotect and protect all sheets. When I run the macro I noticed that it will not unprotect the sheets that have been set as a new sheet for the chart (the chart is not a object in a sheet it is a sheet all by itself) Can anyone tell me where I have gone wrong?
View 14 Replies View RelatedI have different sheets in my workbook for which i have different passwords with which i need to protect each sheet with the password assigned to it.
Is it possible to do a macro which automatically protect the sheets with the correct password.
I have attached a sample workbook the sheet "passwords" will have sheet names in first column and respective passwords in the second column.
I am using some VBA I found here to password protect a hidden sheet. It works perfectly for 1 sheet, but I am trying to hide 6 but am having problems. Under the HideSheets part I've modified it fine, by using
Sub HideSheets()
'Set worksheet to Very Hidden so that it can only be unhidden by a macro
Worksheets("Confidential1").Visible = xlSheetVeryHidden
Worksheets("Confidential2").Visible = xlSheetVeryHidden
Worksheets("Confidential3").Visible = xlSheetVeryHidden
End Sub.........
I have a sheet that pulls data from an external source. I want it so that when a person clicks on a cell or a range of cells, it automatically locks and hides the formula. I don't want to lock it by using the conventional method because protecting it will cause the external data not to be able to populate the cells. So my thinking is that when the data is imported, and the user clicks on a cell, it will automatically lock and hide.
I need columns
A C E:BB to be locked and hidden as soon as someone clicks it. Is this possible?
I read somewhere that I may be able to do some type of "Private Sub Workbook_SheetSelectionChange" to achieve this.
I am looking for code which will protect a worksheet based on the value of a particular cell.
i.e. If cell A1=1, then the worksheet will be protected (ideally with a pswd)
Excel 2002
I have a sheet that has some cells already protected by a password. I want another person to be able to make changes to the unprotected cells and then be able to push a button (macro) that will then unlock the sheet activesheet.unprotect ("mypassword"), change all the cells to "locked" and then have the protect sheet window pop open so that they can type in their own password and save it. Is that possible?
is it possible to protect a macro-enabled workbook with password.
View 5 Replies View RelatedI have a macro that duplicates a excel file into how ever many files I need... so If I need 150 copies of the the file, it will make it 150 times.
However, each file the first tab called "Clients" has information that I want protected so users can't alter it. I can't protect it before I run the duplication because the data is added by a group of people and I need it unprotected until they add the information.
What I am looking for is a macro that I can click and run, allows me to select multiple files, then it will automatically Protect Sheet 1 "Clients" on all the files I select so I don't have to open all 150 files after data is entered and Protect sheet 1 manually.
Macros are just not my strong suit. I can usually find my answers here but this one has me stumped. I have rewritten this thing everywhich way but loose and this is my latest version.
Sub SetProtect()
'
' protect Macro
' prompts for password protection
'
' Keyboard Shortcut: Ctrl+p
'
Dim Response As String
Dim Answer As Integer
SetProtect:
Response = InputBox("Enter password")
If Response = "safety2" Then.......
I am using the following code to enable users of a form to made make selections by adding a tick in one of the boxes by clicking on it. It works fine with thesheet unpotected but when I protect the sheet with cells E33:k33 unlocked i get Run Time Error '1004'
Unable to set the Name property of the font class.When I debug, Target.Font.Name = "Marlett" is highlighted.
Combine to sheets in one sheets using macro ...
View 9 Replies View RelatedI am trying to make a save&close workbook macro.
I found several examples on google, but unfortunatly it conflicts with another macro I use for forceing users to enable macros (hide all sheets except one if macros are disabled).
The attached file is an example contaning the save&close code and the show/hide sheets depending on macros enabled.
If the file is opened with macros disabled then only one sheet will be visible.
If the file is opened with macros enabled other sheets are visible.
The problem if that this code uses a custom save, witch makes the save&close not save... (in module1 and in ThisWorkbook)
The pourpose of the save&close is to make sure some users don't forget the excel open and thus block access to it. So if a certain idele time passes excel has to save and close without any confirmation messages.
I would like to protect the worksheet from modification by other users except column A ( suppose A1: A15).
I have been doing this by removing Locked on format cell and then Protect Sheet on Review tab.
Is it the right way or there are other more reliable way?
I have created a form that allows users to input data to an excel sheet, and also will enable users to view the data once they are done.
Is there a way to unprotect the sheet using VBA so that the data can be written, and then protecting once the data has been input?
I've got about 50 worksheets in a workbook and I'd like to protect them all.
Problem however is that I've got buttons in my worksheets that insert rows, delete rows.
I've also got a dynamic chart with listboxes that select data.
When I protect my worksheets all this is disabled.
Is there a way around this?
This is what I've done so far:
[url]
Is there a way to just protect just a single cell, in order to lock & hide a formula within that cell, without having to password protect the whole worksheet?
View 9 Replies View RelatedI have a bunch of worksheets in my workbook say around 50
Each worksheet has the same template layout!
I am trying to figure out a macro that will select all worksheets from 'KLKN':'KFSN' and protect the cells L45:L52 accross to AL45:AL52
Unfortunately I cannot select all worksheets and protect them, instead I would have to manually do this, or create a macros that will do it for me...
when protect a workbook and select the option for window the window then only appears as about two thirds of a full window?
Is there a way in which you can protect the workbook, select the window option and have the window appear as full size?
Version used: Excel 2003
I have a spreadsheet that everyone in my department uses. My boss has asked me to protect certain columns so that only I can edit them but leave others so that the rest of the depratment can use those.
I have tried locking the ones I am to use and unlocking the ones the others can use then protecting the document. This works well enough as far as it goes, however, it is combersome having to unprotect then reprotect it every time I need to work on it. Also, that method makes the drop down lists that we are using for easy sorting no longer function.
I have a very large workbook - there are only five sheets of this workbook that should be viewed by anyone. What I would like to do and just can't seem to find a solution is...
I would like to set the workbook so that when opening I use a password which will give me full access to anything in the workbook - upon read only, a user would be able to open the entire workbook without a password - but only view it's contents - not be able to do any adjustments.
I have locked cells which I do not want anyone to adjust the formulas to, then protected the sheet - this works, however, because there are so many sheets, it becomes very tedious to unlock and lock sheets to work in them.
I have a Sheet with some Macro Buttons for the boss to use.
How can I protect the sheet from any Data Entry changes, but still allow the Buttons to be used?
I tried a few scenarios and in all, the Buttons can't be used.
I have a work sheet with formulars on column A,B,E and F,(from row 19-119) Column C and D are for inputing data. How do I protect the the columns with formulars at the same time be able to input in column c and D.When I try using protect worksheet it protects all including the one for imputing data..
I have a workbook and i have spent time protecting all the formula cells and allowing user to only be able to select unlocked cells (so they can quickly tab to where they need to input info).
I have lots of codes running and always use Activesheet=unprotect If i am modifying protected cells and then at the end of the code i put back the activesheet=protect.
HOWEVER
When i transfer this book to another machine or to someone else to run it on their machine - ALL of my protection GOES OUT THE WINDOW
Also - is there a way to hide or protect all my code so that users cannot modify it?
If so - how do i get it back to modify state when i want to edit it?
I'm trying to use the Tools|VBA Project Properties dialog box to stop folks from unhiding an xlveryhidden sheet, but even though I check the "lock" checkbox and input passwords in the password and the password verify boxes, Visual Basic fails to stop me from selecting the sheet in question from an Alt-F11 spawned VBA, and editing away.
View 9 Replies View RelatedI have a sheet and want users to be able to type in a set of cells but not able to move the cell how do i do this?
View 9 Replies View RelatedCould there be something that will not show the macros and also make it impossible to edit them (but ofcourse let me have access when I need to change soem thing, password may be? )
Having to talk about password, let me tell you that, I did try and put a password inside the VBA but it didnt seem to make any diff uzzled:
I have some database in excel worksheet, also I have an userform with a button that opening another excel file. When I press the button and opening a new workbook I want to protect my database from seeing. How I do it (code)?
View 5 Replies View Related