HeliRecords
New Member
- Joined
- Feb 7, 2018
- Messages
- 6
Can someone please tell me what the easiest way to do the following within a work sheet.
1. Password protect sheet
2. Pull information from website with a VBA when sheet is updated
3. Allow all cells to be formatted without having to enter password for user group "Records-Staff"
4. Allow the data in only certain cells to be changed without password for user group "Records-Staff"
5. Allow cells to be formatted and updated without password for user group "Records-Admin"
Right now I am using a combination of Allow Users to Edit Ranges & VBA. Everything is working except the user group "Records-Admin" still has to enter a password to change data in cell. This may be the easiest way to do it but I just wanted to ask. I have added the VBA I am using along with a copy of part of the worksheet for reference. Thanks in advance for any help!!
Sub UpdateWebQuery()
'
' UpdateWebQuery Macro
'
ActiveSheet.Unprotect "helidrafter"
ActiveWorkbook.RefreshAll
ActiveSheet.Protect "helidrafter", AllowFormattingCells:=True, AllowFormattingRows:=True
End Sub
1. Password protect sheet
2. Pull information from website with a VBA when sheet is updated
3. Allow all cells to be formatted without having to enter password for user group "Records-Staff"
4. Allow the data in only certain cells to be changed without password for user group "Records-Staff"
5. Allow cells to be formatted and updated without password for user group "Records-Admin"
Right now I am using a combination of Allow Users to Edit Ranges & VBA. Everything is working except the user group "Records-Admin" still has to enter a password to change data in cell. This may be the easiest way to do it but I just wanted to ask. I have added the VBA I am using along with a copy of part of the worksheet for reference. Thanks in advance for any help!!
Sub UpdateWebQuery()
'
' UpdateWebQuery Macro
'
ActiveSheet.Unprotect "helidrafter"
ActiveWorkbook.RefreshAll
ActiveSheet.Protect "helidrafter", AllowFormattingCells:=True, AllowFormattingRows:=True
End Sub