@ sintek,

Yep! With the Userform "Exit" Button, rather use Unload Me instead of App. Quit.

With the Sheet Clear Button, I believe only an appointed authorized user should be able to do that:

Private Sub CommandButton3_Click()
Dim lRow As Long
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
MsgBox "First set up a Password for this action"
Unload Me
Exit Sub
lRow = ws.Range("A" & Rows.Count).End(xlUp).row
ws.Range("A3:E" & lRow).ClearContents
End Sub
If you need help with this, I shall gladly help!