I want to restrict users to just read or print a word document. Document is very confidential so we dont want them to copy or manipulate the document.
I thought of giving password to restrict to read only option but that still lets users to copy and paste on to a new document.
I would Need a macro which would Search a Keyword in the excel sheet and copies and pates the data in Cell "A2". for Example "Market" and then after the search it copies 12 rows upwards and 10 columns from the Cell that the word "Market" is placed. And then it copies 12 rows downwards and 10 columns from the Cell that the word "Market" is placed.
I have tried recording the same but it does not work if the Word "Market" is placed in different cell value.
I have a current macro that saves each sheet as their own file. The first 10-15 sheets are not really necessary, so I typically delete them once the macro has run. I am looking to add two things to my current code:
1. Add a tab called Start. Make the macro look for 'Start' tab and then just save each sheet to the right of that as its own file.
2. Save each sheet in the macro as just a copy/paste value. They current have a lot of links and it makes each file close to 3MB. That makes it incredibily difficult to paste all in one email.
Here is the current code:
Sub CreateWorkbooks()
'Creates an individual workbook for each worksheet in the active workbook.
Dim wbDest As Workbook
Dim wbSource As Workbook
Dim sht As Object
Dim strSavePath As String
On Error GoTo ErrorHandler
[Code] ..........
I have been trying to edit a code which previously saved a copy in a new workbook to a specific folder/path. (Additionally it copies and clears some figures, but this is working as it should.)
However I would like the copy to be saved at the same location as the original workbook, regardless of the path the original workbook is saved.
I.e if I need to move the workbook containing the code to a new folder/location, when using the macro, the new copy should be stored in the same folder/location as the original one.
For now it is only saving the copy into "My Documents"
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16-02-2009 by ceng
'
Sheets("Bunker ROB").Select
Sheets("Bunker ROB").Copy
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & Range("D3"), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[Code] ........
I have a folder containing 40 single sheet excel workbooks and I would like to automate following tasks:
- Open each excel file (need to open the file so as to update it since it gets the data from another workbook through =formulas)
- Copy paste as values
- Save this as excel html in the same folder as original excel files (keeping the original file name)
- Close (original excel file should not be changed ie formulas should remain in place, only the html file will contain values)
- Since there will always be xHtml files with same name need the macro to replace the excisting file
My abilities with excel are limited to functions, no VBA knowledge other than finding ready codes and pasting them in the module.
Since this routine is to be run almost daily the macro should run all files, instead of one by one.
I just hope that I am not asking too much for excel to handle and I hope that explanation is clear.
I have workbook having 3 sheets out of them 1 sheet name "report". I want vba to disable copy /past option to sheet Report only with msg " copy not allowed" if key clt+c or copy option selected
View 1 Replies View RelatedHere i am attaching the excel sheet where macro is enabled. I have added macros in last spread sheet (Consolidated) everything is working fine. Whats messing is i have copied a macro for the entire workbook, which will disable Copy/Pase/Cut option to all engineers. But problem is its disabled for me as well, every time i have to delete the code for copy/cut options. I just want cut/copy option in the last worksheet (Consolidated) where i can get all the result with out touching the rest of the sheets.
View 3 Replies View RelatedBelow is the macro code in which the code is segregating the data page wise i want the below changes:
> macro should copy and paste only values with the option skip blanks.
Private Sub CommandButton1_Click()
Dim j As Long
'Setup the loop to loop through the Areas
For j = 1 To Columns(1).SpecialCells(2).Areas.Count
'Add a new WorkSheet
[Code] .....
I have a frame (Frame1) on a userform added using Microsoft Forms 2.0 Frame. I have added option buttons to the frame named OptionButton1 thru OptionButton4. I am trying to add code where certain cells are copied and pasted depending on which optbutton is selected. I tried the following code but because the option button is a frame object it doesn't seem to trigger the event.
Private Sub OptionButton1_Click()
'copy level 1
If Me.OptionButton1 = True Then
Worksheets("Sheet1").Range("G10:G32").Copy
Worksheets("Sheet1").Select
Worksheets("Sheet1").Range("C10:C32").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End If
End Sub
I'm using a code to copy text from a word doc into a spreadsheet. It does it all right, but when it comes to saving, it does not save the open worksheet and prompts me to save as a copy. If I do so, nothing is changed in the original file and the copy file has the information copied from the word file.
This is the code I'm using to write and save the spreadsheet.
...
(VBA in WORD)
Set wdApp = Excel.Application
Workbooks.Open FileName:="C:UsersljsDocumentsword2excel.xls"
Workbooks("word2excel.xls").Activate
Worksheets("Plan1").Activate
Worksheets("Plan1").Range("A2").Value = DOCname
Worksheets("Plan1").Range("B2").Value = CarNo
Worksheets("Plan1").Range("C2").Value = WordNo
ActiveWorkbook.Save
ActiveWorkbook.Close
...
I am trying to edit the code below to save in .xls instead of .xlsm. Also, I need to disable the compatibly checker.
[Code]....
I've got a workbook that I want to keep intact in a central location on our local network, to make it easier for everybody to access, but don't want people to be able to save changes to the master workbook itself. I'd like to be able to disable the 'Save' feature while still allowing 'SaveAs'. The following code (installed in ThisWorkbook) results in the OPPOSITE of what I'm trying to accomplish (i.e., it allows 'Save' but disables 'SaveAs'):
Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)
If SaveUI Then
MsgBox "The 'Save' function for this workbook has " & Chr(10) & "been disabled. Please use 'Save As'.", vbOKOnly + vbInformation, "Save Disabled"
Cancel = True
End If
End Sub
Obviously I'd also like to check the filename they're performing the 'SaveAs' under and disallow it if it matches the master filename.
I've thought about making the workbook into a template, which would sort of accomplish the same thing, but it would be much easier to just keep it as a workbook.
Is there a code or a way to make it impossible to make permanent changes to a file without first saving it as something else? I have a master report that is done monthly.
I do not want anyone to be able to save any changes on the master report. How do I go about disabling save and the save as funtions in excel? I have a save as command button that I only want people to use.
Also is there a way to set up a print command button to print to any computers default printer? I have set up a print command button on my computer and it works fine on mine, but I have sent the file to another person and the button is not doing anything on their computer. I assume because we don't have the same computers.
I am trying to copy the the following from MS Word and paste it in one MS Excel cell:
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
This is just a test.
I need to know how to open and manipulate a Microsoft Office document using code in Excel.
I have a list of Names in an Excel column that I am trying to paste into a Word table (formatted as Avery labels). Each name goes in a different table cell in Word. Example: Copy from "B5" in Excel and Paste into the first cell in Word, copy from "B6" in Excel and Paste into the second cell in Word, etc.
I know the code needed within Excel and I also know the code in word used to setup the table format. I just need to know how to "call" it from within Excel and how to copy/paste back and forth.
I have about 600 Word Documents that contains information about clients. Each Word document file name is the name of the client. Example. Tom Smith. I wanted to be able to highlight all 600 word documents and paste them into Excel, so that I can press Ctrl-F to find what ever name it is I'm looking for, then click the name and the word document open. Is this possible?
View 2 Replies View RelatedI have created a userform thats extracts data from a worksheet, pace a command button on the form that will send the info in textboxes to a word document.
I did attempt this but even reading how didn't make sense. I have placed book marks on my doc (RTWdoc) ready. bookmarks are named textbox1, textbox2, etc, for ease of reference so they match textboxes on userform1.
word.doc and workbook are in same folder.
I have a workbook with a number of worksheets which is used to produce the information for an estimate.
I then copy and paste different cells or group of cells into a word document to send to the customer.
Is there a Macro which could do this automatically
I am trying to figure out how to go down a list of words and copy/paste a row if it equals a specific ring of words. For example, if want to go down a column and copy the word "Dog" if the word is "Dog" and paste it to the second sheet in a certain column... The thing that I can't figure out is how to step down to the next row until the cell is empty.
Sub Cats_and_Dogs()
For i = 1 To 100
If Range("i, 1") = "Dog" Then
Range("i,1").Select
Selection.Copy
Sheet2.Paste
End If
Next
End Sub
I am trying to make a save&close workbook macro.
I found several examples on google, but unfortunatly it conflicts with another macro I use for forceing users to enable macros (hide all sheets except one if macros are disabled).
The attached file is an example contaning the save&close code and the show/hide sheets depending on macros enabled.
If the file is opened with macros disabled then only one sheet will be visible.
If the file is opened with macros enabled other sheets are visible.
The problem if that this code uses a custom save, witch makes the save&close not save... (in module1 and in ThisWorkbook)
The pourpose of the save&close is to make sure some users don't forget the excel open and thus block access to it. So if a certain idele time passes excel has to save and close without any confirmation messages.
I have 10 worksheets in my workbook. The two that I'm concerned with in this post are "Main" and "Completed".
If Column AA in "Main" contains the word "Complete" (which is from a drop down list) I want to copy the entire row from "Main" and paste in the "Complete" sheet without over-writting previous pasted rows.
Back in sheet "Main" I want the data in that row to be cleared with the exception of Column A as it contains a formula for sorting blanks. If I delete that row it will mess up my links on other sheets.
i need a code to open a specific word document, copy table from word into excel with a link so when the word document is changed so is the excel doc
I have a simple excel sheet with columns A (name1) B (name2) C (name3) D (name4) E (name5) F (text). A given name can only appear once in any given row.
I am looking for a vba code (Excel 2003) that would loop through cells in A1:E?? (number of rows varies, loop needs to find last non-empty row in column A) and look for a particular name (e.g. "Stefan Thomas"):
1) create new unnamed word doc
2) Put "New Annex" as a header (top right) in the new word doc
3) Insert text "List for Stefan Thomas" centered and underlined as the first line of the new word doc. The document will have two sections:
4) Insert text "Items in Column A" bolded and aligned to the left
5) Insert text "Items in Column B to E" bolded and aligned to the left below the section in 4
6) if "Stefan Thomas" is in column A, copy text in column F and paste in word doc as first bullet (below title "Items in Column A")
7) repeat step 6 for all other instances of "Stefan Thomas" in column A (append text as next bullet in section "Items in Column A")
8) If "Stefan Thomas" is in column B or C or D or E (can only appear once per row), copy text in column F and paste in word doc as first bullet (below title "Items in Column B to E")
9) repeat step 8 for all other instances of "Stefan Thomas" in column B or C or D or E (append text as next bullet in section "Items in Column B to E")
if you could indicate in the code how I can choose the type of bullet as well as space between bullets and font type
I have a spreadsheet with client names, email addresses, and appointment info. I export a .csv file from outlook. I have been doing a mail merge in word and then coping and pasting into an Outlook message and sending it out. I did some reseach and found code that I have made changes to. Of course they it doesn't work. I can't get anything to happen when I run this code.
Code:
Sub Qualls_Email_Confirms()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
[Code] .........
Is it possible to automate this process using VB?
I have created an object from a cell range and copied it to the Clipboard, is it then possible to then open up Ms Paint and paste the object in, automatically?
I'm trying to create a .Tif file of the object that can be used later on.
Ideally if it could be possible, for Paint to then offer the SaveAs dialog box to show as well, so the user can choose the freferred save location.
I am trying to have Excel 2007 open a Word Table, Select All, then Copy and paste to the open workbook. Here is what I have so far:
Sub Comments()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "R:JohnstonOfficeProductionSO COMMENTS.doc"
Selection.WholeStory
Selection.Copy
Right now I and getting an "Type not defined" error and the Dim oData As New DataObject step. Also if delete the code to clear the clipboard, I get an error at the WholeStory step.
I have a list of asset data (columns A:Z and over 20,000 rows).
I want a macro to find the word TAG in column F then cut off the entire row for all that meet the criteria and paste in another sheet. So I can see both sheets.
I want to copy 4 sheets and paste it in a new workbook and save it.
I have this code recorded
VB:
Sheets(Array("PIV", "Report")).Select
Sheets(Array("PIV", "Report")).Copy
But it don't work?
I need in XL for a macro to run, open my word file, copy the entire thing and then paste it back in XL.
So leaving it general, Word.doc and Excel.xlsx
It's all because my company's POS system will only export to Word but everything we do is in XL.
I am using Excel 2007
I have a spreadsheet with 1,000 rows in multiple columns
In column "B" i have 8 unique names.
What I am trying to work out is to copy and paste all the rows for each unique name and save in a separate workbook named as the unique name.