Adding a click button that won't let you proceed to other worksheets unless you Agree to T&Cs

[AliG999]

Hi

I hope you can help I'm looking to introduce a front page to a worksheet which users must agree (tick box or click button) to the T&C's before they can look at subsequent sheets.

I know how to add buttons etc but not sure how to add the security feature.

Any help would be gratefully appreciated!

Alison

 

[tonyyy]

Alison,

Welcome to the Board.

One approach would be to hide all the sheets except the front page when the workbook is opened, then present the user with a message box containing the terms and conditions, and if agreed to, unhide the sheets.

Private Sub Workbook_Open()
Dim ws As Worksheet
Dim agree As Integer

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Sheet1" Then ws.Visible = xlSheetVeryHidden 'Change "Sheet1" to the name of your front page sheet
Next ws

agree = MsgBox(prompt:="Paste your terms and conditions between these quotation marks." & vbCrLf & vbCrLf & "Do you agree with the Terms & Conditions?", Title:="Agreement", Buttons:=vbYesNo + vbQuestion)
If agree = vbYes Then
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
End If
End Sub

The code should be pasted into the ThisWorkbook module.

Please note that this kind of security is not very secure; anyone that can open the vbe can unhide the sheets.

Cheers,

tonyyy