VBA Close Window

[MDuff]

Hi all I have been Playing with this simple code And I had a Question Every time the code runs with the part in bold it asks me if I want to save the Changes to the workbook (this work book has links) Is there I way I can have excel say yes or know to this with out having to click on it
Any help is very appreciated

private Sub Workbook_Open()
ActiveSheet.Unprotect Password:="12345"

Workbooks.Open Filename:= _
"\\Crsjofil001\Accounts\GEA\Warranty Management\HR Documents\Performance Appraisals\Performance Appraisals - 2nd Semester 2003\GEA Performance Appraisals Warranty Management II 2003 xls.xls"

ActiveWindow.Close
Windows("PA Summary WM.xls").Activate


ActiveSheet.Protect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

thanks Mike

 

[sobieskitech]

As the final lines of the routine run I was getting 2 popup messages.

The first popup was "Do you want to save", which was fixed with the code in blue below

Windows("VLT_iGEM Compare v.2.xlsx").Activate
ActiveWindow.Close False

The second popup was/is "There is a large amount of information on the clipboard, do you want to keep it", which is what I was hoping the last line of code was suposed to answer and close.

Any and all help is greatly appriciated!

 

[RoryA]

The code you actually want for that is this:

Application.CutCopyMode= False

 

[sobieskitech]

I had tried that earlier, but at the end of the code. Afrer your response I added it after the paste and it worked great

    Range("A:A,B:B,T:T,U:U").Select
    Selection.Copy
    Windows("GLI CHECK.xlsm").Activate
    Worksheets("CURRENT CHECK").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
'THIS AUTO FITS ALL COLUMNS
    Cells.Select
    Cells.EntireColumn.AutoFit
'THIS CLOSES COMPARE WORKBOOK
    Windows("VLT_iGEM Compare v.2.xlsx").Close False

End Sub

Thank you RoryA

 

[RoryA]

Glad to help.