Open Specific Sheet while file open

[Senthil Murugan]

Good Morning everybody



I have 5 sheets named Sheet1 to Sheet5 WITH “ all sheets Password Protected”



Before closing the file

I have set all the sheets “ visible = false” EXCEPT Sheet1



What I need is

When I open the file ( workbook ) , the Sheet1 shall be activated irrespective of

• last activated and saved sheet
• last activated and unsaved sheet and unsaved workbook ( without saving workbook)

Situation

I am activating the Sheet4 ( for example ) but typing something and UNSAVED the sheet4 and UNSAVED the workbook when closing the file

My problem is

When I open the file, it goes to Sheet4 instead of sheet1



My code in ThisWorkbook ( Open) is



Sheets("Sheet1").Activate

Sheets("Sheet1").Select

Sheets("Sheet1").Unprotect Password:="123"

Sheets(“Sheet1”).Range(“A1”).Select

Sheets("Sheet1").Protect Password:="123"







Any solution to this will be highly solicited



Thanks in advance

 

[Senthil Murugan]

Kind Attention Mr.Fuji

Could you please advise to get solutions to my question?

With regards


A.Senthil Murugan

 

[mumps]

I'm not sure if I understood correctly, but try:

Private Sub Workbook_Open()
    With Sheets("Sheet1")
        .Activate
        .Unprotect "123"
        .Range("A1").Select
        .Protect "123"
    End With
End Sub

 

[Logit]

Or more to the point ?

Option Explicit

Private Sub Workbook_Open()

    Sheets("Sheet1").Activate
      
    Sheets("Sheet1").Range("A1").Select

End Sub

Your code needs to be pasted into the ThisWorkbook module.

 

[Senthil Murugan]

Sirs,

I will try it on Monday and reply

WIth regards

A.Senthil Murugan

 

[Senthil Murugan]

I'm not sure if I understood correctly, but try:

Private Sub Workbook_Open()
    With Sheets("Sheet1")
        .Activate
        .Unprotect "123"
        .Range("A1").Select
        .Protect "123"
    End With
End Sub

This does not give my desired result but i think saving the file is the only way. Anyway thanks for your reply

 

[Senthil Murugan]

Or more to the point ?

Option Explicit

Private Sub Workbook_Open()

    Sheets("Sheet1").Activate
     
    Sheets("Sheet1").Range("A1").Select

End Sub

Your code needs to be pasted into the ThisWorkbook module.

This does not give my desired result . Anyway thanks for your reply

 

[Logit]

I've included the use of the password :

Option Explicit

Private Sub Workbook_Open()

    Sheets("Sheet1").Activate
   
    Sheets("Sheet1").Unprotect Password:="123"
      
    Sheets("Sheet1").Range("A1").Select

    Sheets("Sheet1").Protect Password:="123"

End Sub

 

[Senthil Murugan]

I've included the use of the password :

Option Explicit

Private Sub Workbook_Open()

    Sheets("Sheet1").Activate
  
    Sheets("Sheet1").Unprotect Password:="123"
     
    Sheets("Sheet1").Range("A1").Select

    Sheets("Sheet1").Protect Password:="123"

End Sub

This Error comes highlighting Option Explicit

 

[Logit]

The error message is indicating you have additional text AFTER the macro that is not part of the macro.

Check and remove that extra text.