Jak zablokować komórki zawierające formuły, ale nadal zezwalać na działanie makr?

Question

Mam arkusz roboczy do wypełnienia przez moich pracowników i wyliczyłem komórki, które chcę zablokować, aby nie mogły ich zmienić. Wybrałem komórki i wybrane właściwości i upewniłem się, że pole wyboru "blokada" jest zaznaczone. Kiedy chroniłem arkusz roboczy/skoroszyt, przycisk "eksport do csv" przestał działać. W celu umożliwienia makro do uzupełnienia I dodaje ten kod VB do skoroszytu:

Private Sub Workbook_Open() 

Dim wSheet As Worksheet 
For Each wSheet In Worksheets 

    wSheet.Protect Password:="password", _ 
    UserInterFaceOnly:=True 

Next wSheet 


End Sub 

To działało, ale miał niezamierzony efekt uboczny pozwalając moje Zablokowane formuły, aby móc być edytowane chociaż zostały one zablokowane. Tylko komórki zawierające wartości inne niż formuła pozostały zablokowane. Jaki jest właściwy sposób na dopuszczenie makr, ale blokowanie komórek formuł?

Answer 1

Moje rozwiązanie polegało na zablokowaniu całego skoroszytu i arkuszy roboczych, a następnie przypisaniu do przycisku VB wyłączenia blokady, a następnie ponownego włączenia makra. Podobnie jak:

Sub MyMacro() 

Sheet1.Unprotect Password:="password" 

    'insert code here 

    Sheet1.Protect Password:="password" 

End Sub 

Następnie usunąłem mój kod Workbook_Open.