Hi there all
I have three workbooks that are linked
If I protect the sheets the VBA code does not work
Specifically looking for problem in the monthly shopping list
Please assist
Hi there all
I have three workbooks that are linked
If I protect the sheets the VBA code does not work
Specifically looking for problem in the monthly shopping list
Please assist
That's not specific, it's a needle in a haystack!!! Which workbook of the three? We could guess. Which code isn't running? What line does it fail on? Which sheets in which workbooks are you protecting? etc etc...Specifically looking for problem in the monthly shopping list
If you want help, please help us too!
Semper in excretia sumus; solum profundum variat.
In the monthly shopping list workbook
on the start menu sheet if i try to clear old menus, fill menu nos
and in the shopping list sheet if line 8 is protected and i use the dropdown months......the menu numbers dont update.
I did:
Protected Shopping List Sheet
Start Menu sheet, chose Menu 24, Clear Old Menus, Fill Menu No's.
Shopping List sheet, changed Month to July
The data changed on the Shopping List sheet.
Semper in excretia sumus; solum profundum variat.
Protect sheets and try process again. then it doesnt work
Which sheets? What doesn't work? I am not a mind reader and have no idea what is supposed to happen so "it doesn't work" is totally meaningless. It 'worked' for me because some numbers changed.
Semper in excretia sumus; solum profundum variat.
What is 'normal' when working with protected sheets is:
Sub Ked() Sheet1.Unprotect 'Do stuff on Sheet1 '... Sheet1.Protect End Sub
Semper in excretia sumus; solum profundum variat.
If you protect start menu and calendar menu, it does not allow me to make changes
was hoping that something like UserInterFaceOnly:=True would help
Start Menu I can see, but Calendar Menu doesn't exist!
Semper in excretia sumus; solum profundum variat.
SORRY YOU ARE CORRECT.
IT WAS CHANGED TO YEAR PLANNER
An similar for any other subsSub Del12Months() Dim i As Integer, j As Integer, r As Range, c As Range Application.EnableEvents = False Application.ScreenUpdating = False 'Application.Calculation = xlCalculationManual With Worksheets("Year Planner") 'With ActiveSheet .Unprotect For i = 7 To 52 Step 15 '1st row of 3 months menus Set r = Range(.Cells(i, "A"), .Cells(i, "W")).Offset(3) For j = 0 To 10 Step 2 Set c = r.Offset(j) c.ClearContents Next j Next i .Protect End With Application.EnableEvents = True Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub
Semper in excretia sumus; solum profundum variat.
THANK YOU