activate sheet not always calling for form...

albertc30

Well-known Member
Joined
May 7, 2012
Messages
1,091
Office Version
  1. 2019
Platform
  1. Windows
Hi all.

The code bellow seems to be working randomly.

Code:
Private Sub Worksheet_Activate()    
         Sheets("customers").Unprotect Password:="******" 'UnProtects the customers sheet.
    
    Columns("A:R").Select
    ActiveWindow.Zoom = True
    Range("F14").Select
    
         Sheets("customers").Protect Password:="******" 'Protects the customers sheet.
         
    CustForm.Show


End Sub

The goal here is every time user click the customers sheet, the form customers loads up.

Many thanks.

Cheers.
 

Excel Facts

Back into an answer in Excel
Use Data, What-If Analysis, Goal Seek to find the correct input cell value to reach a desired result
Your code is triggered when the sheet is activated but your code leaves the sheet active - clicking does nothing if the sheet is already active
- probably explains apparently random behaviour

either
- activate a different sheet BEFORE user wants the userform to pop up again (eg when the userform is unloaded )
or
- add an additional trigger ( eg when any cell in columns A to R is clicked on by user as demonstrated below )

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Columns("A:R"), Target) Is Nothing Then custform.Show
End Sub

but this would require Worksheet_Activate to be tailored to prevent unnecessary multiple triggers

Code:
Private Sub Worksheet_Activate()
    Const pWord = "******"
    Me.Unprotect pWord        
    [COLOR=#ff0000]Application.EnableEvents = False[/COLOR]
    Columns("A:R").Select
    ActiveWindow.Zoom = True
    Range("F14").Select
    [COLOR=#ff0000]Application.EnableEvents = True[/COLOR]
    Me.Protect pWord      
    custform.Show
End Sub

Consider forcing a different sheet to be active when workbook is opened
place in ThisWorkbook module ( not a standard or sheet module )
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets("othersheet").Activate
End Sub

Private Sub Workbook_Open()
    Sheets("othersheet").Activate
End Sub

How you tackle this depends on what the user is required to do and also what needs to happen when the userform is active and after it has been hidden or unloaded etc
 
Upvote 0
Hi Yongle.

What I meant to say was not necessarily click on an already opened sheet.

When they do that, the code runs first time and opens the form. Then when they close the userform then they would go to another sheet say Invoices.

Then when coming back to customers by clicking on the sheet, code should run again?

Many thanks.

I shall give your code a try.

Many thanks for your time and help.

Cheers.
 
Upvote 0

Forum statistics

Threads
1,224,818
Messages
6,181,152
Members
453,021
Latest member
Justyna P

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top