Forum Discussion

Sumit_Bhokare's avatar
Sumit_Bhokare
Brass Contributor
Aug 24, 2023
Solved

Column hide & to unhide column password is required

Tech Community,   I need one help, I have a main template from which I'm going generate one customer copy. while generating customer copy I need to hide column B:G of each sheet in customer copy, ...
Macros and VBA
  • HansVogelaar's avatar
    HansVogelaar
    Aug 24, 2023

    Sumit_Bhokare 

    Sub CreateCopy()
    Dim wsh As Worksheet
    Dim fil
    For Each wsh In Worksheets
        wsh.Range("B1:G1").EntireColumn.Hidden = True
    Next wsh
    fil = Application.GetSaveAsFilename( _
        InitialFileName:="New Workbook", _
        FileFilter:="Excel Macro-enabled Workbook (*.xlsm),*.xlsm", _
        Title:="Create copy of workbook")
    If fil = False Then
        Beep
    Else
        ActiveWorkbook.SaveCopyAs fil
    End If
    For Each wsh In Worksheets
        wsh.Range("B1:G1").EntireColumn.Hidden = False
    Next wsh
End Sub
Sumit_Bhokare's avatar
Sumit_Bhokare
Brass Contributor
Aug 24, 2023
SergeiBaklan Columns which I want to hide will not have any data. first we are clearing those columns and then we want to hide those columns as deletion of columns is not allowed.

Resources