Untuk proteksi dengan cara kedua, coba mas @Farud lakukan hal berikut:
[1]. Buka proteksi seluruh Worksheet terlebih dahulu. Kemudian, pada salah satu modul Standard (misalkan pada Module1), tambahkan prosedur berikut:
Public Sub ReProtected()
Dim xlSheet As Worksheet
For Each xlSheet In ThisWorkbook.Worksheets
If InStr(1, UCase$(xlSheet.Name), "KUR") = 0 Then
xlSheet.Protect Password:="123", UserInterfaceOnly:=True
DoEvents
End If
Next
End Sub
[2]. Kemudian, tambahkan script berikut pada modul ThisWorkbook:
Option Explicit
Private Sub Workbook_Open()
Call ReProtected
ThisWorkbook.Save
End Sub
[3]. Pada modul Sheet9, sebelum blok script yang bermasalah tersebut, tambahkan baris script berikut untuk menguji apakah proses proteksi UserInterfaceOnly berhasil:
...
On Error Resume Next
Sheet8.Range("XX1").Value = 1
If Err.Number Then
Call ReProtected
End If
Err.Clear
On Error GoTo 0
With Sheet8
...
End With
...
[4]. Tutup Excel atau Workbook tersebut kemudian buka kembali. Lalu coba masukkan nilai pada sheet KUR untuk menguji apakah proteksi bermasalah atau tidak.
Demikian, selamat mencoba. Kalau bingung, contoh terlampir ... :)