While sheet is protected, allow cmdButton to refresh query.
Thanks. It worked!
"Norman Jones" wrote:
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
'<<===========
---
Regards,
Norman
"mhng" wrote in message
...
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
|