While sheet is protected, allow cmdButton to refresh query.

[Guest]

I have two sections on my sheet. One being a query and the next section for
users to input data. The query is protected and the later can be edited.
However, I would like to allow users to click on an update button which I
have programmed to update the queries from database. When the sheet is
protected, users failed to click on the button eventhough I have uncheck the
lock property.

This is the code for the update button:
Private Sub cmdButton_RefreshMDBF_Click()

Range("MDBF_Query").QueryTable.Refresh BackgroundQuery:=False
Range("Plan_MDBF_Query").QueryTable.Refresh BackgroundQuery:=False
Range("MDBF_Plan").Calculate

End Sub

 

[Norman Jones]

Hi M,

Try:
'===========>>
Private Sub cmdButton_RefreshMDBF_Click()
Dim SH As Worksheet

Set SH = Sheets("Sheet1") '<<==== CHANGE

SH.Unprotrect Password:= "Your password"

'Your query code

SH.Protrect Password:= "Your password"

End Sub
'<<===========

 

[Guest]

Thanks. It worked!

Hi M,

Try:
'===========>>
Private Sub cmdButton_RefreshMDBF_Click()
Dim SH As Worksheet

Set SH = Sheets("Sheet1") '<<==== CHANGE

SH.Unprotrect Password:= "Your password"

'Your query code

SH.Protrect Password:= "Your password"

End Sub
'<<===========